Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Lbl r
ClrText
Locate 1,1,"xxx WEAPON SHOPPE xxx"
Locate 1,2,"[F1] SWORD 175"
Locate 1,3,"[F2] LANCE 300"
Locate 1,4,"[F3] MACE 400"
Locate 1,5,"[F4] AXE 500"
Locate 1,6,"[F5] CATAPULT 2000"
Locate 1,7,"[F6] EXIT"
Goto
Lbl
Getkey=79Goto A
Getkey=69Goto B
Getkey=59Goto C
Getkey=49Goto D
Getkey=39Goto E
Getkey=29Goto F
Goto
Lbl F
1A
Return
Lbl A
1A
G<175Goto G
G-175G
S+1S
Goto I
Lbl B
2A
G<300Goto G
G-300G
S+2S
Goto I
Lbl C
3A
G<400Goto G
G-400G
S+3S
Goto I
Lbl D
4A
G<500Goto G
G-500G
S+4S
Goto I
Lbl E
5A
G<2000Goto G
S+25S
G-2000G
Goto I
Lbl G
ClrText
Locate 1,1,"xxx WEAPON SHOPPE xxx"
Locate 3,3,"NOT ENOUGH GOLD."
Goto H
Lbl H
If Getkey=31
Then 1A
Return
IfEnd
Goto H
Lbl I
ClrText
Locate 1,1,"xxx WEAPON SHOPPE xxx"
Locate 1,3,"YOU BOUGHT A"
A=1Locate 14,3,"SWORD."
A=2Locate 14,3,"LANCE."
A=3Locate 14,3,"MACE."
A=4Locate 13,3,"N AXE."
A=5Locate 14,3,"CATAPULT"
Locate 1,6,"ATTACK INCREASED TO:"
Locate 5,7,S
Goto H